  10 . RESEQUENCE BY                RON SCHWEITZER
  15 N=0;@(0)=%(-24576)
  20 for A=-24574to A+1796-SZ;if %(A)div 256#13next A
  25 N=N+1;A=A+2;@(N)=%(A);next A
  30 input ".START NO"O,".SPACING"G;:print 
  35 print ;print ;print ".FROM line ",#0,O," to line ",(N-1)mul G+O," step ",G;print ;print 
  40 M=0;gosub 70;for A=-24574to A+1796-SZ;TV=%(A);B=%(A)div 256;if (RM=13)+(RM=-243)gosub 70
  45 if (RM=110)+(RM=111)gosub 55
  50 next A;print ;print ;print ":return ;NT=0";:return ;NT=0;STOP
  55 T=0;for B=Ato A+5;if (%(B)div 256-53)div 6=0T=Tmul 10+RM+5;A=A+1;next B
  60 for B=0to N;if @(B)=Tprint #0,Bmul G+O,;return 
  65 next B;return 
  70 print #4,Mmul G+O,;TV=32;M=M+1;A=A+2;return 
>:return 
